home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / TUNE.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-09-29  |  1.5 KB  |  37 lines
  1. 10 DIM PROG$(64)    'TUNES PROGRAM   - Creates Menues of Music Files -
  2. 20 SCREEN 0: KEY OFF:KEY 2,"CLS:NEW" + CHR$(13) 'Return to Basic
  3. 30 CLS:WIDTH 80:COLOR 0,0:FILES "*.TUN"   'DISPLAY TUNE FILNAMES invisibly
  4. 40 FOR DR%=1 TO 24    'Row on screen to be Read
  5. 50 FOR DC%=0 TO 65 STEP 13   'File Names are in Six Columns
  6. 60 IF CHR$(SCREEN(DR%,DC%+1))=" " THEN 130   'Stop when no more File names
  7. 70 AR%=AR%+1        'Go to next row in Array
  8. 80 FOR L%=1 TO 8    'Read first 8 characters of File name
  9. 90 PROG$(AR%)=PROG$(AR%)+CHR$(SCREEN(DR%,DC%+L%))    'Add name to Array
  10. 100 NEXT: NEXT: NEXT
  11. 120 WIDTH 80
  12. 130 LOCATE 2,14: COLOR 14,0: PRINT "SELECT-A-TUNE.....Tunes on this diskette:"
  13. 140 FOR DC%=1 TO 27 STEP 13    'Display file names in 3 columns
  14. 150 FOR DR%=4 TO 23        'from screen row 3 to 23
  15. 160 I%=I%+1         ' Go to next row in Array
  16. 170 IF PROG$(I%)="" THEN 200  ELSE LOCATE DR%,DC%
  17. 175 COLOR 0,7:PRINT USING "##";I%;:
  18. 176 COLOR 7,0: PRINT " ";PROG$(I%);    'Stop when Array is empty
  19. 180 NEXT DR%
  20. 190 NEXT DC%
  21. 200 LOCATE 25,1: INPUT "Enter Number of Program Desired: ";P
  22. 205 LOCATE 25:PRINT "                                                ";
  23. 210 LOCATE 25,18:PRINT "Press F2 to return to Basica when finished";
  24. 211 SOUND 32000,25: SOUND 32000,1
  25. 215 IF P=0 THEN WIDTH 80:END
  26. 220 TUNE$ = PROG$(P) + ".TUN"  'the Tune Selected
  27. 500 OPEN TUNE$ FOR INPUT AS #1
  28. 510 PLAY"MBL16T080"
  29. 520 WHILE NOT EOF(1)
  30. 530  INPUT#1,M$
  31. 540  PLAY M$
  32. 550  'PRINT M$
  33. 560 WEND
  34. 570 CLOSE
  35. 575 FOR I = 1 TO 8000:NEXT I
  36. 580 CHAIN "TUNES.BAS"
  37.